StripIOOBJ  METHODS

  constructor  Init(X1,Y1:byte;Tit:string;Act:tAction);
  destructor   Done;
  function     GetID: word;
  procedure    SetActiveStatus(Selectable:boolean);
  procedure    SetHotkey(HK:word);
  procedure    SetID(ID:word);
  procedure    SetLabel(Lbl:string);
  procedure    SetMessage(X,Y:byte; Msg:string);